home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
programs
/
mbbs12d.zip
/
MACRONYT.MAC
< prev
next >
Wrap
Text File
|
1992-06-23
|
3KB
|
86 lines
MACRONYT.MAC v1,2d
by Jeff Oberlee (C)opyright 1992
{:alr} {MACL MACROBBS.MAC,WF3} {:alu} {MACL MACROBBS.MAC,bbs}
{:start}
{BEEP} {BEEP} {BEEP} {PAUS 1} {BEEP} {BEEP} {BEEP} {CLEA}
{DISP 2,1,0F,Cleaning up for %ldate:}
{CALL read_data} {SETV login_name,%l_caller} {SETV userno,%luserno}
{DISP 3,1,07,Closing log...}
{WOPE-A %datadir%LOG-1.LOG} {WRIT } {WRIT ██████████████████████████████████ END OF DAY ██████████████████████████████████} {WCLO}
{DISP 4,1,07,Updating CALLERS.ALL...}
{IFEX %datadir%CALLERS.TDY,,SCH12}
{ROPE %datadir%CALLERS.TDY,SCH11}
{WOPE-A %datadir%CALLERS.ALL}
{:SCH} {READ dline} {WRIT %dline} {GOTO SCH}
{:SCH11} {WCLO}
{EXEC-N DEL %datadir%CALLERS.TDY}
{:SCH12} {DISP 5,1,07,Updating STATS.LOG...}
{SETV ch,3} {LENG %ttu} {DECR ch,%_len} {SUBS dline,1,%ch, }
{SETV ch,3} {LENG %tdcalls} {DECR ch,%_len} {SUBS cline,1,%ch, }
{WOPE-A %datadir%STATS.LOG} {WRIT %ldate %cline%%tdcalls %dline%%ttu mins %pub %pvt} {WCLO}
{SETV ch,0} {SETV count,0}
{DISP 6,1,07,Updating CHART.LOG...}
{:SCH0} {INCR ch,20} {INCR count}
{COMP ch,%ttu} {IFCO-LE SCH0}
{SUBS dline,1,%count,│████████████████████████████████████████████████████████████████████████}
{SUBS day,1,2,%ldate} {SUBS mon,4,2,%ldate}
{WOPE-A %datadir%CHART.LOG} {WRIT %day/%mon %dline} {WCLO}
{SETV ldate,%_dat} {SETV stime,no calls} {SETV ftime,yet today}
{SETV tdcalls,0} {SETV ttu,0} {SETV pvt,0} {SETV pub,0} {SETV tf,1}
{SETV day} {SETV mon} {SETV dline}
{CALL write_data}
{DISP 7,1,07,Opening LOG for %_dat...}
{SETV count,7}
{:SCH1} {SETV ch,%count} {DECR count}
{COMP count,0} {IFCO SCH2}
{IFEX %datadir%LOG-%count.LOG,,SCH1}
{EXEC-N COPY %datadir%LOG-%count.LOG %datadir%LOG-%ch.LOG}
{GOTO SCH1}
{:SCH2} {EXEC-N DEL %datadir%LOG-1.LOG}
{WOPE-A %datadir%LOG-1.LOG} {WRIT ███████████████████████████████ LOG OF %_dat ████████████████████████████████} {WRIT } {WRIT } {WCLO}
{:SCH7} {DISP 8,1,,%an7%%an9* COMPLETE *}
{BEEP} {BEEP} {BEEP} {PAUS 1} {BEEP} {BEEP} {BEEP}
{MACL MACROBBS.MAC,bbs}
{:read_data}
{ROPE %datadir%CALLER.DAT,RD1}
{READ %callno}
{READ %tdcalls}
{READ pub}
{READ pvt}
{READ ttu}
{READ tf}
{READ ldate}
{READ stime}
{READ ftime}
{READ l_caller}
{READ luserno}
{READ uhigh}
{READ mhigh}
{READ fhigh}
{RCLO}
{:RD1} {RETURN}
{:write_data}
{WOPE %datadir%CALLER.DAT}
{WRIT %callno}
{WRIT %tdcalls}
{WRIT %pub}
{WRIT %pvt}
{WRIT %ttu}
{WRIT %tf}
{WRIT %ldate}
{WRIT %stime}
{WRIT %ftime}
{WRIT %login_name}
{WRIT %userno}
{WRIT %uhigh}
{WRIT %mhigh}
{WRIT %fhigh}
{WCLO}
{RETURN}